perm filename DOTS.F4[NEW,LCS]1 blob sn#330404 filedate 1978-01-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE DOTS(VAL,RH,RINP,DOT)
C00003 ENDMK
CāŠ—;
	SUBROUTINE DOTS(VAL,RH,RINP,DOT)
C FINDS DOTS (1000S), GET RHYTH. AND RHYTHMIC VALUE (QTR=1)
	RH=RINP
	VAL=4/RH
	J=RH/1000.
	DOT=J*10
	IF(J.EQ.0)RETURN 
	RH=RH-J*1000
	VAL=4./RH
	Z=VAL
1	Z=Z/2
	VAL=VAL+Z
	J=J-1
	IF(J.GT.0)GO TO 1
	END